home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
gt_power
/
mailbats.zip
/
MAILBAGR.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-12-11
|
2KB
|
56 lines
:MAILBAGR.BAT - BATCH FILE TO BAG OUTGOING MAIL - GT15
@ECHO OFF
GTCD >NUL
ECHO Y|ERASE \MAILWORK\*.*
@ECHO OFF
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ INITIATING MAIL BAGGER │
ECHO
╘═════════════════════════════════════════════════════╛
@TRACE BAGGING MESSAGE FOR MAIL-%1 //%GTPATH%\GTMAIL.LOG >NUL
@ECHO OFF
IF "%1" == "" GOTO NO_PARM
GOTO PARM_OK
:NO_PARM
ECHO
REQUIRED Parameter not specified
ECHO
ECHO Usage is MAILBAGR XXX
ECHO where XXX is a 3 character log identifier
ECHO seven optional parameters may also be passed
ECHO
ECHO Your imput was: MAILBAGR %1
ECHO
GOTO QUIT
:PARM_OK
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ TESTING IF THIS IS THE FIRST MAILBAG RUN FOR %NMAIL$% │
ECHO
╘═════════════════════════════════════════════════════╛
NEWDAY %GTPATH%\MBAGGER.TBS
IF ERRORLEVEL 1 GOTO NEXT
@TRACE .....Running BAGGER without /N or X //%GTPATH%\MAIL-%1.LOG >NUL
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ THE FIRST MAILBAG RUN FOR TODAY │
ECHO
╘═════════════════════════════════════════════════════╛
NOTEIT FIRST Mailbag Run for %NMAIL$% MAIL-ONE >NUL
ECHO
@TRACE .....Running MBag to bag messages //%GTPATH%\GTMAIL.LOG >NUL
@CONCOPY %GTPATH%\MAIL-%1.LOG MBAG412 /D5 /L /QO /Z
ERROR-0 >%GTPATH%\MBAGGER.TBS
ECHO
GOTO END
:NEXT
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ NOT THE FIRST MAILBAG RUN FOR TODAY - USING /X │
ECHO
╘═════════════════════════════════════════════════════╛
ECHO
NOTEIT NEXT Mailbag Run MAIL-%1 >NUL
@CONCOPY %GTPATH%\MAIL-%1.LOG MBAG412 /X /D15 /L /NP /QO /Z
ECHO
GOTO END
:END
MSROUTE
ECHO
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ BAGGING OF MAIL COMPLETED FOR MAIL-%1 │
ECHO
╘═════════════════════════════════════════════════════╛
:QUIT